From: Richard M. Stallman Date: Mon, 18 Apr 1994 22:37:30 +0000 (+0000) Subject: (shell-command-sentinel): Do nothing if buffer is dead. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~92113 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=d7e84efb1a6c99890c84cf988a74d7a2cab987bf;p=emacs.git (shell-command-sentinel): Do nothing if buffer is dead. --- diff --git a/lisp/simple.el b/lisp/simple.el index 19aca0e194a..aec30025f35 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -710,7 +710,8 @@ This cannot be done asynchronously." ;; We have a sentinel to prevent insertion of a termination message ;; in the buffer itself. (defun shell-command-sentinel (process signal) - (if (memq (process-status process) '(exit signal)) + (if (and (memq (process-status process) '(exit signal)) + (buffer-name (process-buffer process))) (progn (message "%s: %s." (car (cdr (cdr (process-command process))))